home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / E-Education / (e)d2.d64 / snail.c64.inst (.txt) < prev    next >
Commodore BASIC  |  2008-11-26  |  11KB  |  293 lines
  1. 80 PRINT"[144]":POKE53280,12:POKE53281,12
  2. 100 GOSUB2450
  3. 110 SN$="[147]    SNAIL C64 [146]"
  4. 120 PRINT"[147]"
  5. 130 PRINT"                       "
  6. 140 PRINT"                 SNAIL "
  7. 150 PRINT"                       "
  8. 160 PRINT"      WELCOME TO SNAIL[146] INSTRUCTIONS!"
  9. 170 PRINT"                                    "
  10. 180 PRINT"        WHAT LEVEL WOULD YOU LIKE?"
  11. 190 PRINT"             1.[146] BEGINNER"
  12. 200 PRINT"             2.[146] INTERMEDIATE":PRINT"             3.[146] ADVANCED"
  13. 210 PRINT
  14. 220 PRINT"             4.[146] LOAD  SNAIL [146]"
  15. 230 PRINT"          YOUR CHOICE (1-4)?"
  16. 240 GETZ$:IFZ$=""THEN240
  17. 250 WZ=VAL(Z$):IFWZ<1ORWZ>4THEN240
  18. 260 IF WZ=4THEN2900
  19. 270 ONWZGOSUB330,1120,1770
  20. 280 GOTO 120
  21. 290 PRINT""
  22. 300 PRINT"     PRESS [146] SPACE BAR  TO CONTINUE! "
  23. 310 GETZ$:IFZ$=""THEN310
  24. 320 PRINT"[147]":RETURN
  25. 330 PRINT"[147]           SNAIL  -  BEGINNER "
  26. 340 PRINT"     HELLO, I AM THE SNAIL[146]. YOU CAN"
  27. 350 PRINT"    SPOT ME ON THE SCREEN BECAUSE I"
  28. 360 PRINT"    WILL LOOK LIKE THIS:  @ "
  29. 370 PRINT"    LET'S TAKE A LOOK AT SOME BASIC"
  30. 380 PRINT"    INSTRUCTIONS TO MY WORLD."
  31. 390 GOSUB290:PRINT"[147]"
  32. 400 PRINT" COMMAND[146]","INSTRUCTION[146]"
  33. 410 PRINT" LETTER"
  34. 420 PRINT"   D [146]","DRAW, LEAVING A TRAIL"
  35. 430 PRINT"   M [146]","MOVE, WITHOUT A TRAIL"
  36. 440 PRINT"   J [146]","JOYSTICK OPTION"
  37. 450 PRINT"   Q [146]","QUIT, EXPLORING MY WORLD"
  38. 460 GOSUB290
  39. 470 PRINTSN$:PRINT" LET'S LOOK AT THE DRAW[146] INSTRUCTION."
  40. 480 PRINT"  BEFORE WE CAN DRAW, WE WILL HAVE"
  41. 490 PRINT" TO CHOOSE A TRAIL TYPE[146]."
  42. 500 PRINT"       THE TYPES OF TRAILS ARE:"
  43. 510 PRINT"        ([209]) OR (*) OR (+) OR ( )"
  44. 520 PRINT"     THIS WILL SELECT THE TYPE OF"
  45. 530 PRINT"     TRAIL I LEAVE ON THE SCREEN."
  46. 540 GOSUB290
  47. 550 PRINTSN$
  48. 560 PRINT"     AFTER YOU HAVE CHOSEN THE TRAIL"
  49. 570 PRINT"     TYPE, YOU WILL SEE THE WORDS;"
  50. 580 PRINT"       WHAT WOULD YOU LIKE TO DO [146] "
  51. 590 PRINT"  THIS MEANS I AM READY FOR A COMMAND!"
  52. 600 PRINT"     A COMMAND, SUCH AS;"
  53. 610 PRINT"      THE LETTER D[146] FOR DRAW[146]."
  54. 620 GOSUB290:PRINTSN$
  55. 630 PRINT"     ONCE I KNOW WHAT YOU WANT TO DO,"
  56. 640 PRINT"    I WILL THEN NEED TO KNOW IN WHICH"
  57. 650 PRINT"     DIRECTION [146] YOU WANT ME TO GO."
  58. 660 PRINT"      YOU MAY GO:":PRINT"     U [146]  UP":PRINT"     D [146]  DOWN"
  59. 670 PRINT"     R [146]  RIGHT":PRINT"     L [146]  LEFT"
  60. 680 PRINT"     A [146]  ANGLE MOVE":GOSUB290:PRINTSN$
  61. 690 PRINT"   IF YOU CHOOSE  A [146] I WILL NEED TO"
  62. 700 PRINT"   KNOW THE ANGLE DIRECTION[146]"
  63. 710 PRINT"          ANGLE DIRECTION"
  64. 720 PRINT"      UP & RIGHT      PRESS # 1 KEY"
  65. 730 PRINT"      DOWN & RIGHT    PRESS # 3 KEY"
  66. 740 PRINT"      DOWN & LEFT     PRESS # 5 KEY"
  67. 750 PRINT"      UP & LEFT       PRESS # 7 KEY"
  68. 760 PRINT"                7  1"
  69. 770 PRINT"                  [205][206]"
  70. 780 PRINT"                  [206][205]"
  71. 790 PRINT"                 5  3":GOSUB290
  72. 800 PRINTSN$:PRINT"     ONCE I KNOW WHICH WAY TO GO,"
  73. 810 PRINT"   I WILL NEED TO KNOW HOW FAR[146]."
  74. 820 PRINT"   I CAN MOVE FROM 1 TO 9 SPACES"
  75. 830 PRINT"   AT A TIME.":PRINT"   SIMPLY TYPE IN THE NUMBER OF"
  76. 840 PRINT"   MOVES YOU WOULD LIKE ME TO MAKE."
  77. 850 GOSUB290
  78. 860 PRINTSN$:PRINT"  THE MOVE[146] COMMAND IS JUST"
  79. 870 PRINT"  LIKE THE DRAW[146] COMMAND."
  80. 880 PRINT"  THE ONLY DIFFERENCE IS THAT WHEN"
  81. 890 PRINT"  I MOVE[146], I LEAVE NO TRAIL BEHIND":PRINT"  ME."
  82. 900 PRINT"  ALSO, I DO NOT ERASE ANYTHING ON"
  83. 910 PRINT"  THE SCREEN, WHEN I MOVE.":GOSUB290
  84. 920 GOSUB2940
  85. 930 PRINTSN$:PRINT"  THAT SHOULD BE ENOUGH FOR NOW!"
  86. 940 PRINT"  YOU KNOW THE OLD SAYING;":PRINT"  PRACTICE MAKES PERFECT!"
  87. 950 PRINT"  BEFORE WE START, WOULD YOU LIKE TO"
  88. 960 PRINT"  SEE THESE INSTRUCTIONS AGAIN (Y/N)?"
  89. 970 GETZ$:IFZ$=""THEN970
  90. 980 IFZ$="Y"THEN330
  91. 990 IFZ$<>"N"THEN970
  92. 1000 PRINT"[147]            REMEMBER!"
  93. 1010 PRINT"           D [146]  TO DRAW"
  94. 1020 PRINT"           M [146]  TO MOVE"
  95. 1030 PRINT"           J [146]  JOYSTICK"
  96. 1040 PRINT"           Q [146]  TO QUIT"
  97. 1050 PRINT"   IF YOU WISH TO SEE THE COMMANDS"
  98. 1060 PRINT"   AT ANY TIME, WHILE USING SNAIL,"
  99. 1070 PRINT"   ALL YOU HAVE TO DO IS PRESS THE"
  100. 1080 PRINT"    COMMODORE [146] KEY AT THE BOTTOM"
  101. 1090 PRINT"   LEFT HAND CORNER OF THE KEYBOARD."
  102. 1100 PRINT"            HAVE FUN! "
  103. 1110 GOSUB290:RETURN
  104. 1120 PRINT"[147][158]     SNAIL INTERMEDIATE "
  105. 1130 PRINT"  YOU HAVE ALREADY LEARNED TO DRAW[146]"
  106. 1140 PRINT"  AND MOVE[146] IN MY WORLD, NOW,"
  107. 1150 PRINT"  I WOULD LIKE TO SHOW YOU SOME"
  108. 1160 PRINT"  OTHER THINGS THAT I CAN DO."
  109. 1170 PRINT"   HERE ARE SOME NEW COMMANDS:"
  110. 1180 PRINT" LETTER[146]","INSTRUCTION"
  111. 1190 PRINT"   E [146]","ERASE, AS I MOVE"
  112. 1200 PRINT"   W [146]","WIPE , ALL TRAILS FROM SCREEN"
  113. 1210 PRINT"   S [146]","SELECT, A NEW TRAIL TYPE"
  114. 1220 PRINT"   T [146]","TEACH, ME A SERIES OF MOVES"
  115. 1230 GOSUB290
  116. 1240 PRINTSN$
  117. 1250 PRINT"  THE ERASE[146] COMMAND WORKS JUST LIKE"
  118. 1260 PRINT" THE MOVE[146] COMMAND, EXCEPT THAT I WILL"
  119. 1270 PRINT" ERASE ANY TRAIL IN MY PATH AS I GO!"
  120. 1280 GOSUB290
  121. 1290 PRINTSN$:PRINT"  THE  WIPE [146] COMMAND IS JUST"
  122. 1300 PRINT" A QUICK WAY OF ERASING ALL THE TRAILS"
  123. 1310 PRINT" IN MY WORLD WITH ONE SHOT."
  124. 1320 PRINT"  I, THE SNAIL (@), WILL ALSO
  125. 1330 [153]" BE CLEARED FROM THE SCREEN,BUT I WILL"
  126. 1340 [153]" BE RETURNED WITHIN A FEW SECONDS TO"
  127. 1350 [153]" THE SAME SPOT I WAS IN WHEN YOU CALLED"
  128. 1360 [153]" THE  WIPE WAIT COMMAND.":[141]290
  129. 1370 [153]SN$:[153]"  THE  SELECT WAIT COMMAND ALLOWS"
  130. 1380 [153]" YOU TO CHANGE THE TRAIL TYPE ANY "
  131. 1390 [153]" TIME YOU SEE THE FLASHING 'ACTION'."
  132. 1400 [153]"  THIS MEANS YOU WILL BE ABLE TO"
  133. 1410 [153]" MIX THE TRAIL TYPES ON THE SCREEN."
  134. 1420 [153]"  YOU WILL ALSO BE ABLE TO CHOOSE"
  135. 1430 [153]" A NEW TRAIL COLOR. YOU MAY CHOOSE"
  136. 1440 [153]" YWAITELLOW, CWAITYAN, WWAITHITE OR BWAITLACK.":[141]290
  137. 1450 [153]SN$:[153]"     THE TEACHWAIT COMMAND IS USED TO"
  138. 1460 [153]"   MAKE ME REMEMBER A SERIES OF DRAWWAIT"
  139. 1470 [153]"   COMMANDS."
  140. 1480 [153]"    I CAN BE TAUGHT UP TO 9 DRAW"
  141. 1490 [153]"   COMMANDS IN A ROW!":[141]290
  142. 1500 [153]SN$:[153]"  ONCE YOU HAVE ASKED FOR TEACHWAIT,"
  143. 1510 [153]"  I WILL ASK YOU HOW MANY LINESWAIT YOU"
  144. 1520 [153]"  WISH TO TEACH ME. (UP TO 20)"
  145. 1530 [153]"  SIMPLY TYPE IN THE NUMBER YOU WISH."
  146. 1540 [141]290
  147. 1550 [153]SN$:[153]"  I WILL THEN ASK YOU FOR THE"
  148. 1560 [153]"  DIRECTIONWAIT OF LINE # 1, JUST LIKE"
  149. 1570 [153]"  A NORMAL DRAWWAIT COMMAND."
  150. 1580 [153]"  THEN, OF COURSE, I WILL ASK YOU"
  151. 1590 [153]"  HOW FARWAIT TO DRAW THIS LINE."
  152. 1600 [153]"  I WILL GO THROUGH EACH OF THE LINES"
  153. 1610 [153]"  EXACTLY THE SAME WAY."
  154. 1620 [153]"  WHEN I HAVE FINISHED THE LAST LINE,"
  155. 1630 [153]"  I WILL THEN DRAW ALL OF THESE"
  156. 1640 [153]"  LINES ONE AFTER THE OTHER."
  157. 1650 [141]290
  158. 1660 [153]SN$:[153]"  TIME FOR SOME PRACTICE!"
  159. 1670 [153]"  DO YOU WISH TO SEE THESE INSTRUCTIONS":[153]"  AGAIN (Y/N)?"
  160. 1680 [161]X$:[139]X$[178]""[167]1680
  161. 1690 [139]X$[178]"Y"[167]1120
  162. 1700 [139]X$[179][177]"N"[167]1680
  163. 1710 [153]"LOAD"SN$:[153]"     REMEMBER:"
  164. 1720 [153]"    E WAIT  TO ERASE":[153]"    W WAIT  TO WIPE"
  165. 1730 [153]"    S WAIT  TO SELECT A TRAIL"
  166. 1740 [153]"    T WAIT  TO TEACH ME"
  167. 1750 [153]"  Q WAIT  TO QUIT"
  168. 1760 [153]"      HAVE FUN!":[141]290:[142]
  169. 1770 [153]"LOAD    SNAIL  ADVANCED ":[153]"  THERE ARE ONLY TWO INSTRUCTIONS"
  170. 1780 [153]"  IN THIS LEVEL TO LEARN:"
  171. 1790 [153]"     R WAIT  RECALL, A SHAPE"
  172. 1800 [153]"     T WAIT  TURN, A SHAPE"
  173. 1810 [153]"  LET'S TAKE A LOOK AT THE RECALL":[153]"  COMMAND.":[141]290
  174. 1820 [153]SN$:[153]"  THE RECALLWAIT COMMAND HAS "
  175. 1830 [153]"  TWO POSSIBLE USES."
  176. 1840 [153]"  IT CAN BE USED TO MAKE ME MEMORIZE"
  177. 1850 [153]"  A SERIES OF DRAWWAIT COMMANDS THAT I"
  178. 1860 [153]"  WILL REMEMBER AS A NAMED SHAPE "
  179. 1870 [153]"  OR IT CAN ALSO BE USED TO MAKE ME"
  180. 1880 [153]"  DRAW OUT A SHAPE I HAVE ALREADY"
  181. 1890 [153]"  LEARNED.":[141]290
  182. 1900 [153]SN$:[153]"  TO HAVE ME MEMORIZEWAIT A SHAPE,"
  183. 1910 [153]"  YOU MUST FIRST CALL THE RECALLWAIT"
  184. 1920 [153]"  COMMAND.":[153]"  I WILL ASK YOU TO CHOOSE THE SHAPE."
  185. 1930 [153]"  WE DO THIS WITH THE  F1 WAIT AND THE"
  186. 1940 [153]"   F7 WAIT KEYS."
  187. 1950 [153]"  IF YOU WISH TO SEE ALL THE SHAPES"
  188. 1960 [153]"  THAT I ALREADY KNOW, PRESS THE  F1 WAIT"
  189. 1970 [153]"  KEY. TO CHOOSE A SHAPE PRESS  F7 WAIT"
  190. 1980 [153]"  I CALL EACH SHAPE BY NUMBER."
  191. 1990 [153]"  AS AN EXAMPLE, LET'S ASK FOR SHAPE"
  192. 2000 [153]"  NUMBER 1."
  193. 2010 [141]290
  194. 2020 [153]SN$:[153]"  SINCE THERE IS NO SHAPE # 1"
  195. 2030 [153]"  YET, PRESS THE  F7 WAIT KEY."
  196. 2040 [153]"  THEN PRESS THE  N WAIT KEY TO"
  197. 2050 [153]"  NAME THIS SHAPE. TYPE IN THE"
  198. 2060 [153]"  NAME YOU WISH TO GIVE THIS SHAPE."
  199. 2070 [153]"  YOU MAY THEN ASK ME TO MEMORIZEWAIT THE "
  200. 2080 [153]"  SHAPE (PRESS  M WAIT) OR  DRAWWAIT (PRESS"
  201. 2090 [153]"   D WAIT) A SHAPE I ALREADY KNOW"
  202. 2100 [153]"  OR  TURN WAIT (PRESS  T WAIT) AN ALREADY"
  203. 2110 [153]"  LEARNED SHAPE.":[141]290
  204. 2120 [153]SN$:[153]"  IN THIS CASE, SINCE WE DO NOT"
  205. 2130 [153]"  HAVE A SHAPE # 1, WE WOULD PRESS  M WAIT"
  206. 2140 [153]"  TO MEMORIZE THE NEW SHAPE."
  207. 2150 [153]"  I WILL THEN ASK YOU HOW MANY LINES":[153]"  MAKE UP THIS SHAPE."
  208. 2160 [153]"  JUST LIKE THE TEACHWAIT COMMAND I"
  209. 2170 [153]"  CAN REMEMBER UP TO 20 LINES IN A ROW."
  210. 2180 [153]"  I WILL THEN GO THROUGH EACH OF THE"
  211. 2190 [153]"  SEPERATE LINES AND ASK YOU FOR THE"
  212. 2200 [153]"  DIRECTIONWAIT AND HOW FARWAIT.":[141]290
  213. 2210 [153]SN$:[153]"  WHEN I HAVE FINISHED MEMORIZING"
  214. 2220 [153]"  THE NEW SHAPE, I WILL THEN RETURN YOU"
  215. 2230 [153]"  TO THE MAIN COMMAND QUESTION."
  216. 2240 [153]"  IF YOU WISH TO SEE THE SHAPE YOU"
  217. 2250 [153]"  JUST TAUGHT ME, THEN:"
  218. 2260 [153]"  CALL THE RECALLWAIT COMMAND"
  219. 2270 [153]"  ASK FOR SHAPE # 1 WITH  F7 WAIT."
  220. 2280 [153]"  ASK ME TO DRAWWAIT THE SHAPE."
  221. 2290 [153]"  YOU MAY ASK ME TO DRAW OUT THIS"
  222. 2300 [153]"  SHAPE NOW IN THIS WAY AS MANY TIMES"
  223. 2310 [153]"  AS YOU WISH.":[141]290
  224. 2320 [141]2590
  225. 2330 [153]SN$:[153]"        TIME TO PRACTICE!"
  226. 2340 [153]"     DO YOU WISH TO SEE THESE"
  227. 2350 [153]"     INSTRUCTIONS AGAIN (Y/N)?"
  228. 2360 [161]X$:[139]X$[178]""[167]2360
  229. 2370 [139]X$[178]"Y"[167]1770
  230. 2380 [139]X$[179][177]"N"[167]2360
  231. 2390 [153]"LOAD"SN$:[153]"        REMEMBER:"
  232. 2400 [153]"      R WAIT  TO RECALL A SHAPE"
  233. 2410 [153]"        M WAIT TO MEMORIZE ONE OR"
  234. 2420 [153]"        D WAIT TO DRAW IT  OR"
  235. 2430 [153]"        T WAIT TO TURN AND/OR REPEAT"
  236. 2440 [153]"   HAVE FUN!":[141]290:[142]
  237. 2450 [153]"LOAD
  238. 2460 PRINT"
  239. 2470 [153]"                 (null)(null)(null)(null)(null)(null)
  240. 2480 PRINT"                [206] [210][210][210][210] [205]
  241. 2490 [153]"        (null)      (null) (null) (null)(null) (null) (null)
  242. 2500 PRINT"         [205]    [206] [206] [206]  [205] [205] [205]
  243. 2510 [153]"          (null)  (null) (null) (null) (null)(null) (null) (null) (null)
  244. 2520 PRINT"         [213][195][201][206]  [205] [205] [205][206] [206] [206] [206]
  245. 2530 [153]"         MID$LEN(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)>>>
  246. 2540 PRINT"
  247. 2550 [153]"                S N A I L
  248. 2560 PRINT"
  249. 2570 [153]"          R. PRACHUN      1982
  250. 2580 FORI=1TO2000:NEXTI:RETURN
  251. 2590 REM * REPEAT AND TURN *
  252. 2600 PRINTSN$:PRINT"  YOU MAY ALSO HAVE ME  TURN [146] THE"
  253. 2610 PRINT"  SHAPE YOU JUST TAUGHT ME. PRESS THE"
  254. 2620 PRINT"   T [146] KEY.":PRINT"  I WILL THEN ASK YOU THE NUMBER OF"
  255. 2630 PRINT"  DEGREES YOU WISH TO TURN THE SHAPE."
  256. 2640 PRINT"  YOU MAY TURN IT 45, 90 OR 180 DEGREES"
  257. 2650 PRINT"  TO THE RIGHT."
  258. 2660 PRINT"   NOTE [146]: DIAGONAL LINES WILL NOT"
  259. 2670 PRINT"  BE AS EXPECTED DUE TO THE "
  260. 2680 PRINT"  DIFFERENCES IN LENGTHS BETWEEN "
  261. 2690 PRINT"  DIAGONALS AND VERTICAL OR HORIZONTAL"
  262. 2700 PRINT"  LINES.":GOSUB290
  263. 2710 PRINTSN$:PRINT"  I WILL THEN ASK YOU IF YOU WISH TO"
  264. 2720 PRINT"   REPEAT [146] THIS PATTERN OF TURNED"
  265. 2730 PRINT"  SHAPES. YOU NEED ANSWER ONLY  Y [146]ES "
  266. 2740 PRINT"  OR  N [146]O."
  267. 2750 PRINT"  IF YOU ANSWER NO, I WILL THEN DRAW"
  268. 2760 PRINT"  OUT THE SHAPE ONLY ONCE, BUT IT WILL"
  269. 2770 PRINT"  BE TURNED TO THE RIGHT THE NUMBER OF"
  270. 2780 PRINT"  DEGREES YOU SAID.":GOSUB290
  271. 2790 PRINTSN$:PRINT"  IF YOU ANSWER YES, THEN I WILL"
  272. 2800 PRINT"  ASK HOW MANY REPEATS ARE TO BE MADE."
  273. 2810 PRINT"  YOU MAY ASK FOR UP TO 9 CONTINUOUS"
  274. 2820 PRINT"  REPEATS OF THESE TURNED SHAPE DRAWING"
  275. 2830 PRINT"  PATTERNS."
  276. 2840 PRINT"   NOTE [146]: I WILL REMEMBER THE LAST"
  277. 2850 PRINT"  ANGLE GIVEN TOO ME FOR THE NEXT TIME"
  278. 2860 PRINT"  YOU ASK ME TO TURN A SHAPE, HOWEVER,"
  279. 2870 PRINT"  THE  DRAW [146] OPTION OF THE  RECALL [146]"
  280. 2880 PRINT"  COMMAND WILL ALWAYS DRAW OUT THE"
  281. 2890 PRINT"  ORIGINAL UNTURNED SHAPE.":GOSUB290:RETURN
  282. 2900 PRINT"[147]"
  283. 2910 PRINT"LOAD"CHR$(34)"SNAIL.C64"CHR$(34)",8"
  284. 2920 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
  285. 2930 POKE631,13:POKE632,13:POKE198,2:END
  286. 2940 PRINTSN$
  287. 2950 PRINT" THE JOYSTICK OPTION,  J [146] MEANS"
  288. 2960 PRINT" YOU CAN USE A JOYSTICK TO DRAW WITH."
  289. 2970 PRINT"  BE SURE THE JOYSTICK IS PLUGGED INTO"
  290. 2980 PRINT" PORT #2!"
  291. 2990 PRINT"  TO GO BACK TO THE MAIN COMMANDS,"
  292. 3000 PRINT" PRESS THE FIRE BUTTON ON THE JOYSTICK!":GOSUB290:RETURN
  293.